appoints.noncore <- c(0.68,0.94, 0.96)
appoints.core <- c(0.15, 0.77, 0.52)
appoints <- rbind(appoints.core, appoints.noncore)
tenure.noncore <- c(4.5,2.43, 1.92)
tenure.core <- c(8.5, 2.96, 2.72)
tenure <- rbind(tenure.core, tenure.noncore)


pdf(file = "Descriptive_stats2.pdf", height = 10, width = 13)
par(mfrow=c(1,2))

labs  <- c("Congo: Sassou Ngessou", "Kenya: Moi", "Kenya:Kibaki")
barplot(appoints, beside = TRUE, main="Native Appointment", xlab="",  density = c(10,0,10,0,10,0), angle = 45, names.arg=labs, ylab = "Percent of Non-Native Regional Executives", ylim = c(0,1.1), cex.names=.9, col = c("firebrick", "white", "firebrick", "white", "firebrick", "white"))
legnames <- c("Core", "Outside Core")
barplot(tenure, beside = TRUE, main="Tenure", xlab="", density = c(10,0,10,0,10,0), angle = 45, names.arg=labs, ylab = "Mean Tenure Length", ylim = c(0,9) , cex.names=1.0, , col = c("firebrick", "white", "firebrick", "white", "firebrick", "white"))
legend("topright", legnames, bty = "n", density = c(20, 0), angle = c(45,0), col = c("firebrick", "firebrick"), fill = "firebrick")
dev.off()
